home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / asms.arc / GATHER.ASM < prev    next >
Encoding:
Assembly Source File  |  1987-04-11  |  239 b   |  21 lines
  1. data:    equ 0
  2. contr:  equ 1
  3.     org 0H
  4.     b start
  5.     org 00AH
  6. start:  lark ar0,0
  7.     sar ar0,contr
  8.     larp 0
  9. wait:    bioz sendit
  10.     b wait
  11. sendit:    in data,3
  12.     out data,pa7
  13.     mar *+
  14.     sar ar0,contr
  15.     nop
  16.     nop
  17.     nop
  18.     out contr,pa5
  19.     b wait
  20.     end
  21.